home *** CD-ROM | disk | FTP | other *** search
/ PCMania 27 / PCMania CD27_1.iso / pcmania / pov27 / monument.pov < prev    next >
Text File  |  1994-10-04  |  7KB  |  265 lines
  1. // Pov_Ray version 2.0
  2. // Pantalla creada por: JAVIER RODRIGUEZ SANCHEZ
  3. // 25 de Agosto de 1994
  4. //
  5. #include "colors.inc"
  6. #include "textures.inc"
  7. #include "stones.inc"
  8. #include "shapes.inc"
  9. #include "shapes2.inc"
  10.  
  11. camera{   //-10,25,-100
  12.   location <-11,32,-100>
  13.   look_at <0,25,0>
  14. } 
  15. object{light_source{<20,80,-130> color White}}
  16. object{light_source{<-60,41,0> color Gray40}}
  17.  
  18. // El suelo
  19. object{plane{y,0} 
  20.      pigment{color red 0.8 green 0.45 blue 0.1}
  21.        finish{ambient 0.2 diffuse 0.8}
  22.        normal{ripples 0.5 frequency 1000 scale 7000}
  23. }
  24.  
  25. // Una montaña de fondo
  26. object{
  27.    height_field{pot "fract001.pot"}
  28.    rotate y*15
  29.    pigment{              // Una textura sub-realista
  30.     granite
  31.     turbulence 0.6
  32.     color_map{
  33.        [0, 0.3  color red 0.8 green 0.45 blue 0.1 
  34.                 color Maroon ]
  35.        [0.3, 1    color red 0.8 green 0.45 blue 0.1
  36.               color red 0.8 green 0.45 blue 0.1]
  37.     }
  38.    }
  39.    translate <-.5,-.5,-.5>    // Centro la imagen
  40.    scale <1000,250,300>
  41.    translate <0,120,350>
  42.    no_shadow                // Para que no de la sombra en el cielo
  43. }
  44.  
  45. object{sphere{<0,0,0>,1400} texture{Blue_Sky3 scale 1000}}
  46.  
  47. object{
  48.   union{  
  49.     box{<-1,0,-1>,<1,1,1>}
  50.     box{<-0.6,1,-0.6>,<0.6,4,0.6>}
  51.     box{<-1,4,-1>,<1,4.5,1>}
  52.     box{<-0.5,4.5,-0.5>,<0.5,15,0.5>}
  53.     object{Octahedron  scale <0.5,2,0.5> translate y*15}
  54.   }
  55.   texture{Stone16}
  56.   scale <4,1.3,4>
  57.   translate <0,10,0>
  58. } 
  59.  
  60. #declare Antorcha=union{
  61. //    light_source{<0,4,0> color White}
  62.     cylinder{<0,0,0>,<0,3,0>,1}
  63.     intersection{
  64.        sphere{<0,4.5,0>,2}
  65.        sphere{<0,4.5,0>,1.8 inverse}
  66.        plane{y,5}
  67.     }
  68.  intersection{
  69.    object{
  70.       height_field{
  71.          gif "fract002.gif" translate <-.5,-.5,-.5>
  72.          scale 8
  73.          translate <0,2.9,0>
  74.       }
  75.       texture{
  76.         pigment{
  77.          gradient y
  78.          turbulence 0.8
  79.          color_map{
  80.             [ 0, .3  color Red color Red  ]
  81.             [.3,  1  color Red   color Orange ]
  82.          }   
  83.         }  
  84.         finish{ambient 0.8}
  85.       }
  86.    }
  87.    cylinder{<0,4.5,0>,<0,17,0>,1.8 pigment{color Clear}}
  88.  }
  89. }
  90.  
  91.  
  92. #declare ca=sphere{<0,0,0>,1 scale <1.5,0.7,1.5>}
  93. #declare Columna=union{
  94.     box{<-2,0,-2>,<2,2,2> texture{Stone11}}
  95.     object{ca translate y*2}
  96.     object{ca translate y*2.7}
  97.     object{ca translate y*3.4}
  98.     object{ca translate y*4.1}
  99.     object{ca translate y*4.8}
  100.     object{ca translate y*5.5}
  101.     object{ca translate y*6.2}
  102.     object{ca translate y*6.9}
  103.     object{ca translate y*7.6}
  104.     object{ca translate y*8.3}
  105.     object{ca translate y*9}
  106.     object{ca translate y*9.7}
  107.     object{ca translate y*10.4}
  108.     object{ca translate y*11.1}
  109.     object{ca translate y*11.8}
  110.     object{ca translate y*12.5}
  111.     object{ca translate y*13.2}
  112.     object{ca translate y*13.9}
  113.     object{ca translate y*14.6}
  114.     object{ca translate y*15.3}
  115.     object{ca translate y*16}
  116.     object{ca translate y*16.7}
  117.     object{ca translate y*17.4}
  118.     object{ca translate y*18.1}
  119.     object{ca translate y*18.8}
  120.     object{ca translate y*19.5}
  121.     object{ca translate y*20.2}
  122.     box{<-2,20.5,-2>,<2,22,2> texture{Stone11}}
  123.     scale <1,1.3,1>
  124. }
  125.  
  126. object{Columna translate <-15,10,-15> texture{Stone12}}
  127. object{Columna translate <15,10,-15> texture{Stone12}}
  128. object{Columna translate <-15,10,15> texture{Stone12}}
  129. object{Columna translate <15,10,15> texture{Stone12}}
  130. object{box{<-21,0,-21>,<21,10,21>} texture{Stone13 scale 6}}
  131.  
  132. object{
  133.   union{
  134.     box{<-5,0,-22>,<5,10,-21> }
  135.     box{<-5,0,-23>,<5,9,-22> }
  136.     box{<-5,0,-24>,<5,8,-23> }
  137.     box{<-5,0,-25>,<5,7,-24> }
  138.     box{<-5,0,-26>,<5,6,-25> }
  139.     box{<-5,0,-27>,<5,5,-26> }
  140.     box{<-5,0,-28>,<5,4,-27> }
  141.     box{<-5,0,-29>,<5,3,-28> }
  142.     box{<-5,0,-30>,<5,2,-29> }
  143.     box{<-5,0,-31>,<5,1,-30> }
  144.   }
  145.   texture{Stone13}
  146. } 
  147. #declare ci=cylinder{<0,0,0>,<0,5,0>,0.7}
  148. object{
  149.    union{
  150.     object{ci translate <-4,1,-29>}
  151.     object{ci translate <4,1,-29>}
  152.     object{ci translate <-4,2,-28>}
  153.     object{ci translate <4,2,-28>}
  154.     object{ci translate <-4,3,-27>}
  155.     object{ci translate <4,3,-27>}
  156.     object{ci translate <-4,4,-26>}
  157.     object{ci translate <4,4,-26>}
  158.     object{ci translate <-4,5,-25>}
  159.     object{ci translate <4,5,-25>}
  160.     object{ci translate <-4,6,-24>}
  161.     object{ci translate <4,6,-24>}
  162.     object{ci translate <-4,7,-23>}
  163.     object{ci translate <4,7,-23>}
  164.     object{ci translate <-4,8,-22>}
  165.     object{ci translate <4,8,-22>}
  166.     object{ci translate <-4,9,-21>}
  167.     object{ci translate <4,9,-21>}
  168.     object{ci translate <-4,10,-20>}
  169.     object{ci translate <4,10,-20>}
  170.   }
  171.   texture{Stone14}
  172. }
  173. object{
  174.   union{
  175.     object{ci translate <-6.5,10,-20>}
  176.     object{ci translate <6.5,10,-20>}
  177.     object{ci translate <-9,10,-20>}
  178.     object{ci translate <9,10,-20>}
  179.     object{ci translate <-11.5,10,-20>}
  180.     object{ci translate <11.5,10,-20>}
  181.     object{ci translate <-14,10,-20>}
  182.     object{ci translate <14,10,-20>}
  183.     object{ci translate <-16.5,10,-20>}
  184.     object{ci translate <16.5,10,-20>}
  185.     object{ci translate <-19,10,-20>}
  186.     object{ci translate <19,10,-20>}
  187.   }
  188.   texture{Stone14}  
  189. } 
  190. #declare lateral=union{
  191.    object{ci translate <0,10,-17.5>}
  192.    object{ci translate <0,10,-15>}
  193.    object{ci translate <0,10,-12.5>}
  194.    object{ci translate <0,10,-10>}
  195.    object{ci translate <0,10,-7.5>}
  196.    object{ci translate <0,10,-5>}
  197.    object{ci translate <0,10,-2.5>}
  198.    object{ci}
  199.    object{ci translate <0,10,2.5>}
  200.    object{ci translate <0,10,5>}
  201.    object{ci translate <0,10,7.5>}
  202.    object{ci translate <0,10,10>}
  203.    object{ci translate <0,10,12.5>}
  204.    object{ci translate <0,10,15>}
  205.    object{ci translate <0,10,17.5>}
  206. }
  207. object{
  208.   union{
  209.     object{lateral translate <-19,0,0>}
  210.     object{lateral translate <19,0,0>}
  211.     object{lateral rotate y*90 translate <0,0,19>}
  212.   }
  213.   texture{Stone14}
  214. } 
  215. object{
  216.   difference{
  217.     box{<-20,15,-21>,<20,15.5,21>}
  218.     box{<-18,14,-19>,<18,16,19>}
  219.     box{<-3.6,14,-22>,<3.6,16,20>}
  220.   }
  221.   texture{Stone14}
  222. } 
  223. object{
  224.    box{<-21,38,-21>,<21,38.5,21>}
  225.    texture{Stone13}
  226. }
  227. object{
  228.    union{
  229.      object{Hexagon scale <3,2,2> rotate z*90 translate <-18,41.6,-18>}
  230.      object{Hexagon scale <3,2,2> rotate z*90 translate <18,41.6,-18>}
  231.      object{Hexagon scale <3,2,2> rotate z*90 translate <18,41.6,18>}
  232.      object{Hexagon scale <3,2,2> rotate z*90 translate <18,41.6,-18>}
  233.      object{Hexagon scale <3,2,2> rotate z*90 translate <0,41.6,0>}
  234.    }
  235.    texture{Stone21 scale 2.5}
  236. }
  237. object{
  238.    box{<-21,44,-21>,<21,44.5,21>}
  239.    texture{Stone13}
  240. } 
  241. object{
  242.   intersection{
  243.      sphere{<0,44.5,0>,20 }
  244.      plane{y,44.5 inverse}
  245.   }
  246.   texture{Stone7 scale 5}
  247. } 
  248. object{
  249.   union{
  250.     object{Antorcha translate <-8,0,-36>}
  251.     object{Antorcha translate <8,0,-36>}
  252.     object{Antorcha translate <8,0,-42>}
  253.     object{Antorcha translate <-8,0,-42>}
  254.     object{Antorcha translate <8,0,-48>}
  255.     object{Antorcha translate <-8,0,-48>}
  256.     object{Antorcha translate <-8,0,-54>}
  257.     object{Antorcha translate <8,0,-54>}
  258.   }
  259.   texture{Gold_Metal}
  260. }
  261. object{
  262.   box{<-5,0,-80>,<5,0.12,-21>}
  263.   texture{PinkAlabaster scale 2}
  264. }
  265.